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Tuxedo configuration UBBCONFIG for the model TEST1 



r RESOURCES 
I PC KEY 
MASTER 
DOMAINID 
MAXACCESSERS 
MAM SERVERS 
MAX SERV ICES 
OPTIONS 
MODEL 

•MACHINES 
puce 



tri f ide 



orage 



doml 



50 



191785 
sitel 



50 
100 
LAN 
MP 



LMID=sitel 

TUXDIR= "usr/ tuxedo" 

APPDIR= " /home/dia/ tuxedo" 

TUXCONFIG= M /home/ dia/ tuxedo/TUXCONF IG " 

ENVFILE= "/home/dia/ tuxedo/envf ile_puce" 

ULOGPFX= " /home/dia/ tuxedo /ULOG" 

LMID=site2 

TUXDIR^ "usr/ tuxedo" 

APPDIR= " /home/dia /tmp " 

TUXC ON FI G= " / home /dia/ tmp / TUXC ONFIG" 

ENVFILE= " /home /dia/ tmp/ env f i 1 e_t r i f ide " 

UL0GPFX= "/home/ die/ tmp /ULOG" 

LMID=site3 

TUXDIR= "usr/ tuxedo " 

APPDIR= " /home/dia/ tuxedo" 

TUXCONFIG="/home/dia/tuxedo/TUXCONFIG" 

ENVFILE= "/home/dia/ tuxedo/envf ile_zig M 

ULOGPFX= " /home/dia/ tuxedo/ULOG " 

LMID=site4 

TUXDIR= " usr / tuxedo " 

APPDIR= "/home/dia/ tuxedo" 

TUXC0NFIG= " /home/dia / tuxedo/TUXCONFIG *' 

ENVF ILE= " / home /dia/ tuxedo / env f i 1 e_ora g e " 

ULOG PFX= " /home /dia/ tuxe do / ULOG " 



TMSNAME=TMS 

LMID=sitel 

GRPN0=1 

LMID=site2 

GRPN0=2 

LMID=site3 

GRPN0=3 

LMID=site4 

GRPN0-4 



•GROUPS 

DEFAULT: TMSNAME=TMS TMSC0UNT=2 

GROUP1 

GR0UP2 

GROUP4 

GR0UP3 

* SERVERS 

DEFAULT: RESTART- Y MAXGEN=5 REPLYQ=Y CL0PT="-A" 
SRV1 

SRVGRP=GR0UP1 
SRVID=100 
MIN-2 MAX =2 
RQADDR=QSRV1_1 
REPLYQ=Y 

CL0PT="-s SVC1_1 -s SVC1_2 -- " 



SRV2 



SRVGRP=GR0UP2 



ANNEXE 1 

• ■ • ' <rs 

Nov 20 1997 16:23:57 ubb.doml Page-& 



72 




SRVID=200 


73 




MIN=2 MAX =2 


74 




RQADDR=QSRV2_2 


7S 




REPLYQ=Y 


76 




CLOPT= M -s SVC2_1 -s SVC2_2 - - 


77 


SRV4 




78 




SRVGRP=GROUP4 


7S 




SRVID=300 


80 




MIN=2 MAX=2 


61 




RQADDR= QS RV4 3 


82 




REPLYQ=Y 


83 




CLOPT="-s SVC4_1 -s SVC4_2 - 


RA 

OH 


SRV3 




O D 




SRVGRP=GROUP3 


o o 




SRVID=400 


R*7 
o / 




MIN=2 MAX =2 


C Q 

c o 




RQADDR=QSRV3_4 


D C 

or 




REPLYQ=Y 


y u 




CL0PT=*'-s SVC3_1 " 


Q 1 






Q 0 

y -> 


* SERVICES 


QA 


DEFAULT 


LOAD=50 




SVC 1_1 




96 


SVC1_2 




97 


SVC 2Ji 




98 


SVC 2_2 




99 


SVC4_1 




100 


SVC4_2 




101 


SVC3_1 










i 

J. J* 
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105 


•NETWORK 


106 


sitel 




107 




port number=6095l (eel7 hexa) 


108 


# 


local address=81b683e0 


109 




NADDR="\\xOOO2eel781b683eOO000O0O000OO00OO" 


Tin 




3RIDGE="/ dev/xti /tcp" 


111 


t 


port number=60952 (eel8 hexa) 


112 




NLSADDR= ,, \\x0002eel88lb683e00OO0000000000000 


113 


# 




114 


site2 




115 


# 


port number=6095l (eel7 hexa) 


116 


* 


local address=8lb68387 


117 




NABDR= "Wx0002eel781b683870000000000000000" 


118 




BRI DGE= * / dev/ xt i / tcp " 


119 


# 


port number=60952 (eel 8 hexa) 


120 




NLSADDR="\\x0002eel88lb683870000000000000000 


121 






122 


si te3 




123 


* 


port number=60951 (eel7 hexa) 


124 




local address=81b683el 


125 




NADDR="\\x0002eel78lb683elOO00O0O0O000000O" 


126 




BRIDGE= " /dev/xti/ tcp M 


127 


# 


port number=60952 (eel8 hexa) 


128 




NLSADDR="\\x0002eel881b683el00O0O0O00000000O 


129 






130 


site4 




131 




port number=6095l (eel7 hexa) 


132 


# 


local address=8lb6838b 


133 




NADDR="\\x0O02eel781b6838b0OOOO0O0O0O00O0O" 


134 




BRIDGE= " / dev/xti/ tcp" 


135 




port number=60952 (eel8 hexa) 


136 




NLSADDR="\\xOO02eel881b6838bO0O000O0OOOO0OOO 


137 






138 
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1 

2 # @BULL_COPYRIGHT@ 

3 # 

4 # HISTORY 

5 # $Log: smtuxadmin . ksh, v $ 

6 . # Revision 1.7 1996/02/12 11:40:49 odeadm 

7 ' # bci VlSet2C 23.01.96 

8 # [1996/01/23 14:31:07 dia] 

9 # 

10 # Revision 1.6 1995/12/20 14:26:59 odeadm 

11 # VI Set2: Still troubles with smtuxadmin . ksh 

12 # [1995/12/11 11:56:55 odeadm] 

13 # 

14 # 07.12.95 VlSet2 first batch of corrections 

15 # [1995/12/07 17:22:57 odeadm] 

16 # 

17 # *** empty log message *** 

18 # [1995/11/30 13:48:30 dia] 

19 # 

20 # *** empty log message *** 

21 # [1995/11/30 13:48:30 dia] 

22 # 

23 # Revision 1.5 1995/10/13 11:52:51 odeadm 
2 4 # Servers TMS /Parti tioned mach. 

Z$ # [1995/10/09 12:05:57 dia] 

te£ # 

' £3 # Revision 1.4 1995/09/15 15:15:06 odeadm 

j§8 # Corrections MRs BUILD 3 

£9 # [1995/09/07 15:45:27 dia] 

*E> # 

%1 # Revision 1.3 1995/08/24 13:38:03 odeadm 

# Build3 

S # [1995/08/23 09:04:31 odeadm] 

Mi # 

^£ # Revision 1.2 1995/07/19 15:18:13 odeadm 

:3 6 # Madison build M0 . 2 

i3=7- # [1995/07/10 10:01:58 odeadm] 

W # 

-3=9 # $EndLog$ 

|40 #! /bin/ ksh 

£4 Conf Dir=$WRAPPING_CONFIGURATION 

Context=smtuxedo. ctx 

^3 Scanconf =$MADISON_VAR/ surveyor /scanconf . tux 

# V5_to_V4='ROOTDIR=$TUXDIR; export ROOTDIR ' 

45 Setl_to_Set2= t [ -2 "$ADMIN" ] && export ADMIN="madi son*" 

4 6 cmd=$l; shift 
47 

4 8 set_environ() { 

4 9 MASTER^""; APPDIR=""; ADMIN = " " 

50 f ilename=$Conf Dir/$appname . tux 

51 Env= * tuxgetenv -k -v APP_PW $ filename << ! 

52 tuxgetenvp 

5 3 r 

54 eval M $Env"; unset APP_PW 

55 eval " $Set l_to_Set2 M 

56 if [ - n "$MASTER" -a -n M $APPDIR" ] 

57 then 

5 8 Env="$Env 

59 $pw 

60 $Setl_to_Set2 

61 $V5_to_V4"' 

62 LD_LIBRARY_PATH=$LIBPATH; export LD_LIBRARY_PATH; 

63 cd $APPDIR 

64 PATH=$ {PATH) : . : SAPPDIR : $TUXDIR/bin; export PATH* 

65 return 0 

66 fi 

6"? exit 1 

68 } 

69 

70 remote_cmd() { 

71 prog="$Env 



72 

73 

74 

75 

76 

77, 

78 * 

79 

80 

ei 

82 
83 
84 
85 
86 
87 
88 
B9 
90 
91 
92 
93 
94 
95 

Wbl 

filP3 

;&4 

"505 

yyo6 

.107 
i08 

gio 

32i2 

l E L3 
^yi4 

'fie 

117 

118 

119 

120 

12 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 ' 

135 

136 

137 

138 

139 

140 

141 

142 



$ cmd " * 
status=$ ? 
sleep 1 

echo "\nexit $status" 

Sprint -r "$prog" > prog 

rsh "$MASTER" -1 " $ADMIN" "$prog" 
NR == 1 {line - $0} 
NR > 1 { print line; line « $0} 
END { if {sub ( ,,A exit 



awk 



line) ) exit line; exit -1 



get_tuxconf ig { ) { 

if [ -s tuxconf . tmp . $ appname ] 
then 

cat tuxconf . tmp .$ appname 

else 

rm -f tuxconf . tmp. * 

prog="$Env" 1 
$TUXDIR/bin/tmunloadcf 
echo "\nexit $?" 

#print -r "$prog" > prog 

rsh "^MASTER" -1 "$ADMIN" 

fi 

get_tlistenlog 
} 



"$prog" I tee tuxconf . tmp .$ appname 



get_tlistenlog ( ) { 

tllogfname=$ConfDir/tlistenlog. $appname . $ma chine 
if [ -s $tllogfname ] 
then 

cat $tllogfname 
else # default value 

echo "TLLOG ^machine $ MAD IS ON_TMP/t list en. $ appname . $ma chine . log" I tee Stllogfname 



echo "\nexit $?* 



J 



get_tuxval ( ) { 

get_tuxconf ig | \ 

sed -e M s/=/ /g" -e 's/V/g* -e 's/WW/O/g' 
BEGIN { 



awk 



} 



tuxconf ig_section [ " 
tuxconf ig_section [ " 
tuxconf ig_section [ " 
tuxconf ig_section [ " 
tuxconf ig_sect ion [ " 
tuxconf ig_section [ 
tuxconf ig_sect ion [ 



♦RESOURCES"] = 1 

♦MACHINES"] = 2 

* GROUPS" ] = 3 

* SERVERS" ] = 4 

♦SERVICES " ] « 5 

♦ROUTING" ] = 6 

♦NETWORK" ] = 7 



# MACHINES section 



NF == 1 { 

if ( $1 in tuxconf ig_section ) { 
section = tuxconf ig_section [$ 1 ] 
next 
} 

} 

section == 2 && $2 == "LMID" { 
if ( $3 == machine) { 

printf "uname=%s\n" , $1 

mach_f ound=l 

} 

else { # reset mach_found for furtheur machines 
mach found = 0 



) 

section == 2 && $1=="APPDIR" && mach_f ound==l { 
printf "appdir=%s\n" , $2 
appdir - $2 



3^ 



143 next 

144 } 

145 section == 2 && $l«"TUXCONFIG" && mach_found == 1 { 
14 6 printf ,, tuxconfig=%s\n ,, / $2 

147 next 

148 } 

14'9- section « 2 && $ 1=="TUXDIR M && mach_f ound==l { 

150 printf "tuxdir-%s\n", $2 

151 next 

152 } 

153 section == 2 && $l=="ROOTDIR" && mach_f ound==l { # for V4 

154 printf " tuxdir=%s\n" , $2 

155 next 

156 ) 

1-57 section == 2 && $l™"ULOGPFX" && mach_f ound==l { 

158 ulogpf x=l; printf "ulogpf x=%s\n" , $2 

159 next 

160 } 

161 section == 7 && NF == 1 { 

162 if ( $1 -= machine } 

163 {mach_found = 1} 

164 else { # reset mach_found for other machines 

165 mach_found = 0 

166 } 

167 next 

oe } 

i'69 section « 7 && $ 1=="NLSADDR" && mach_f ound==l { 

170 printf "nlsaddr=%s\n" , $2 

¥#1 next 

m2 } 

£73 section == 1 && 51 == "UID" {printf "uid=%s\n", $2 ;next } 

X74 section == 7 && $1""BRIDGE" && mach_f ound==l { 

tf|5 printf "bridge=%s\n" , $2 } 

t-7 6 END { # not defined ulogpf x 

HP if ( ulogpfx == 0 ) { 

178 printf M ul ogpf x=%s/ULOG\n" , appdir } 

179 } ■ machine=$machine appname=$appname 

^$0 lang=*sed -e "s/=/ /g" -e w s/7/g H -e "s/;/ / M $Conf Dir /$appname . tux I awk • 

8S1 $1 "LANG" {printf "lang=", $2}' * 

112 } 

P 3 

y*4 get_tllog{) { 

£§5 tllogfname="$Conf Dir/tlistenlog. $appname. ^machine" 
.El 6 if [ -f Stllogfname ] 
¥87 then 

188 tllog=*cat $tllogf name I awk '$1 == "TLLOG" && $2 machine { print $3 )' machine=$m 
achine * 

189 else 

190 tllog="$MAJDISON_TMP/tlistenlog. Sappname . $ma chine " 

191 echo "TLLOG $machine $tllog" > $tllogfname 

192 fi 

193 ) 
194 
195 

196 case $cmd in 

197 appli) 

198 Is -1 SConfDir 2> /dev/null I awk ' 

199 sub(".tux$ M , $NF) {print $NF 
200 

201 isexist) 

202 if [ -f $ConfDir/$l .tux ] 

2 03 -Chen 

2 °4 echo "Yes" 

205 else 

206 echo "No" 

207 fi 
208 

209 setparam) 

210 t ! -d $ConfDir } && mkdir -p $ConfDir 

211 if [ - n »$2 M ] 

212 then 



?3 
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213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 

227 

228 

229 
230 
231 
232 
233 
2^4 
ms 

=237 

m9 

=po 

=241 
-S2 
^J43 
S3 4 
.245 
2=4 6 
^7 

a*s 
So 
£fei 

@2 
.2£3 
M4 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 



fi 



f ilename=$Conf Dir/$2 . tux 

while [ $# -gt 0 ] 

do 

echo "$1=\ M $2\" ; export $1" 
shift 2 
done > $ filename 



awk ' 
I awk 



discover) 

[ -z "$1" ] && exit 1 

f ilename=$Conf Dir/$ 1 . tux; shift 

if [ -f ^filename ] 

then 

# sed -e 's/i/eee/g 1 -e *s/#.*// 



sed 



's/#.*//' -e 's/ 



e 's/ *; */"/g' ^filename/ | 
*/"/g' -e 's/:/#!:/g' $filename/ 



BEGIN { field '= "#promptW: prompt? :promptPO: prompts :promptA:pr 
omptM:promptC : promptR: promptF" ; value = " :::::::: " } 

/W { 

for (i-1; i<= NF; { 

if(sub(" = $", "", $i)J { 
separator = " : " 
field = field separator $i 
value = value separator $ (i + 1) 



} 



} 

END { 



} 



print field; print value 



else 
fi 

delappname) 
if [ 
then 



fi 



select) 



if [ 
then 



fi 

deselect ) 
rm 



}* FS=" 
print ' #\n' 

n "$2" ] 

f ilename=$Conf Dir/$2 . tux 

if [ -f ^filename ] && grep -q " 51= [ ■ \ " 3 * $2 M $filename 
then 

rm -f $filename $ {filename }p 

else 

echo 'The file does not exist' 
echo * or' 

echo 'The file is not an environment file' 
exit 1 



n "$2" ] 

echo ,, 51=*$2'; export $1" > "$Context* 



'$Context* 



selected) 

APPNAME= " " 
[ -f $Context ] 
echo " $ 1$APPNAME" 



, /$Context 



isselected) 

rm -f tuxconf . tmp. * 

[ -f $Context ] && fgrep -q 

echo $1 



"APPNAME=" $Context shift 



loadcf ) 



appname=$l 



344 
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281 boucle status=0 

282 * ' cmd="\$TUXDIR/bin/tmloadcf -y $2 $3" 
28 3 set_environ 

284 echo " Loading Configuration Binary File " 

2 85 remote_cmd 

28^6 status=$? 

2 8 7' if [ Sstatus -ne 0 ] 

288 then 

2e9 exit $status 

290 else 

291 # maj fichier $Scanconf . tux machines 

292 prog="$Env" ' 

2 93 $TUXDIR/bin/tmunloadcf 
294 echo "\nexit $?" 

295 

296 #print -r "$prog" > prog 

297 rsh "5MASTER" -1 " $ADMIN" "$prog" > tuxconf . tmp . $appname 

298 list_lmids= " cat tuxconf . tmp . $appname I sed -e "s/=/ /g" -e ' s/"//g' -e "s/\*// 
I awk ' 

299 {line = $0} 

300 $2 == "LMID" && machine == 1 {lmids = lmids $3 " "; next} 

301 $1 == "GROUPS M && $2 == "" { machine=0; next) 

302 31 == "MACHINES" && $2 == " " { machine = 1; next} 

303 * END {if (sub( ,,A exit ","", line)) { 
#3^04 print lmids 

^05 exit line} 

%£0 6 exit -1 } 1 1 

1307 for machine in $list_lmids 

S) 8 do 

3*f0 9 echo " Updating $Scanconf on $ma chine \n" 

iitLO get_tuxval > " appname . tux" 

fjp.1 . . /appname . tux 

lid. 2 log_pref ix= * echo Sulogpfx 1 sed -e 1 s./. . g 1 1 awk ' 

Sl3 {print $NF } ■ 4 

y^l4 log_dir= 1 echo $ulogpfx I sed -e 's./. . g* I awk ' 

=315 {for (i=l; i< NF; i++) { 

f3bl6 tempo = tempo "/" $i }} 

2l7 END { print tempo} ' * 

y£LS #Build the 3 lines of $Scanconf for the application 

L3p-9 prog=" 

i3|20 [ -x $MADISON_BIN/security/updscantux ] && 

Hf21 $MADISON_BIN/security/updscantux $appname $log_dir $log_prefix 
W22 echo VWnexit \$?\ ,T " 

yS 23 rsh "$uname" -1 madison "$prog" | awk ' 

^24 NR == 1 {line = $0} 

325 NR > 1 { print line; line = $0} 

326 END {if (sub ("-exit ","", line)) exit line; exit -1 }' 

327 boucle _status= * expr $ bouc le_status + $? * 

328 done " . 

329 fi 

330 exit $boucle status 

331 — rr~*~ 

3 32 apppwd) 

333 f ilename=$Conf Dir/$1 . tuxp 

334 echo "Enter Application Password: \c" 

335 OLDCONFIG^* stty -g* 

336 stty -echo 

337 read APP_PW 

338 echo "\nRe-enter Application Password: \c" 
33 9 read APP_PW_1 

340 stty SOLDCONFIG 

341 if [ "$APP_PW" !- "$APP_PW_1" ] 

342 then 

3^3 echo "\n\nPassword mismatch!" 



echo "Enter any character to exit and retry*' 



3^5 read 

346 else 

347 # PWencode "APP_PW=\ " $APP_PW\ " ; export APP_PW" > Sfilename 

348 # APP_PW='echo $APP_PW | sed -e " s/ ' / ' \ *" \ " ' /g" * 

349 # PWencode "APP_PW= ' $APP_PW ; export APP_PW" > Sfilename 

350 tuxgetenv -s > ^filename « ! 



3ST 
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351 tuxgetenvp 

352 $APP_PW 

353 ! 

354 fi 
355 

35,6 chksyntx) 

357' appname=$l 

358 cmd="\$TUXDIR/bin/tmloadcf -n $2" 

35 9 set_environ 

360 remot e_cmd 

361 exit $? 

362 ;; 

363 displpc) 

364 appname=$l 

365 cmd="\$TUXDIR/bin/tmloadcf -c $2" 

366 set_environ 
3 67 remot e_cmd 
368 exit $? 

3 69 

370 machine_network) 

371 appname-$ 1 

372 set_environ 

373 get_tuxconf ig | \ 

374 sed -e "s/ = / /g" -e 's/"//g' -e 's/\\//» -e "s/W/" I awk 
3,75 BEGIN { network=0 } 

^#76 {line = $0} 

#77 NF == 1 { if (network 1) print $1} 

[3f78 $1 «« ** NETWORK" { network « 1} 

^379 END {if (sub (" A exit line)) exit line; exit -1 }' 

2 80 exit $? 

rS 82 

iS63 machine_machines) 

SB4 appname=$l 

y&5 set_environ 

=38 6 get_tuxconf ig | \ 

f¥ 7 sed -e "s/=/ /g M -e 's/"//g' -e 's/W//' -e "s/W/" I awk 
§8 8 BEGIN { machine=0 } 

1&89 {line « $0} 

Lg90 $2 ~« "LMID" { if (machine 1) print $3} 

391 $1 == "GROUPS " { if ( $2 ~ ,,M ) machine-0} 

*f? 2 $1 == "MACHINES" { if < $2 -« M " ) machine = 1} 

END {if (sub ("-exit ","", line)) exit line; exit -1 }* 

j?£4 exit $? 
'3"95 

3 96 group) 

397 appname=$ 1 

3 98 s e t_envi r on 

399 get_tuxconf ig | \ 

4 °0 sed -e "s/ = / /g" -e 's/'V/g' -e 's/W//' -e "s/W/" I awk 
^01 BEGIN { group=0 } 

402 {line = $0} 

403 $1 == "SERVERS" { group=0 ) 

404 $1 " GROUPS " { if {$2 == "") group=l } 

405 $2 « " LMID" && $4 — "GRPNO" { if (group) print $1} 

406 END {if (sub("~exit ","", line)) exit line; exit -1 }* 

407 exit $? 

4 08 

4 09 svrname) 

410 appname=$l 

411 set^environ 

412 get_tuxconf ig | \ 

413 sed -e "s/=/ /g" -e 's/'V/g' -e 's/\\//' -e "s/W/" | awk 

414 BEGIN { group=server=nb_of _distinct svr name=0 } 

415 {line = $0} 

416 $1 " "TMSNAME" { if ( group == 1) { 

417 trouve = 0 

418 if (nb_of _ distinct_svr_name ==0) { 

419 nb of distinct svr name=l 

420 - - - - 



421 print $2 



svr_names[nb_of_distinct_svr_name] = $2 
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422 ) else { 

423 for (j=l; j<« nb_of _dis tinct_svr_name ; { 

424 if ( $2 svr_names [ j] ) { 

425 trouve=l . 

426 ) 
4 27 ] 

428' if (trouve ==.0) { 

42 9 nb_of_distinct_svr_name + = 1 

430 s vr_names [ nb_of _di s t inct_s vr^name ] = $2 

431 print $2 

432 } 

433 } 

434 } 

435 } 

436 $1 == "SERVERS" { if ($2 « "") { 

437 server=l 

438 group=0 } 

439 } 

4 40 $1 ~ "SERVICES " { if ($2== " " ) server=0] 

441 $1 == "GROUPS" { if- ($2 == ,,M ) group=l) 

4 42 $2 == "SRVGRP" { 

443 if {(server == 1) && ( $4 == "SRVID")} { 

44 4 trouve = 0 

4 45 if (nb_of_distinct_svr_name ==0) { 

J£ 6 nb__of_distinct_svr_name = 1 

^4?47 svr_names [nb_of _distinct_svr_name] = $1 

y&e print $1 

|4jj9 9 ) else { 

M 50 for(j=l; j<= nb_of_distinct_svr_name; j++) { 

M&l if { $1 == svr_names [ j ] ) { 

O052 trouve=l 

rS£3 } 

i&4 } 

4^55 if (trouve == 0) { 

y^6 nb__of_distinct_svr_naitie += 1 

= 457 svr^names [nb_of_distinct svr name] = $1 

AS 8 print $1 

^59 j 

Qoso ) 

^62 } 

H*? 63 END {if (sub ("^exit line)) exit line; exit -1 } ' 

yp64 exit $? 

T66 svrseq) 

4 67 appname=$l 

4 68 set_environ 

4 65 get_tuxconf ig i \ 

470 sed -e "s/=/ /g" -e 's/"//g' -e 's/W//' -e "s/W/ M I awk • 

471 BEGIN { server=0; nb_of _di s tmct_svr_seq=0 } 

47 2 {line = $0) 

473 $1 " "SEQUENCE" && server == 1 { 

474 trouve = 0 

47 5 if (nb_of_dis tinct_svr_seq == 0) { 
47 ^ nb_of_distinct_svr_seq=l 

477 svr_seqs [nb_of_distinct_svr_seq] = $2 

478 print $2 

47 9 } else { 

480 for (j=l; j<= nb_of_distinct_svr_seq; { 
III if ( $2 svr__seqs[j] ) { 

trouve=l 

483 j 

484 j 

485 if {trouve == 0) { 

48 ^ nb of distinct svr seq += l 

^° ' svr_seqs[nb_of_distinct_svr_seq] = $2 

488 print $2 ~ 

489 } ^ 

490 } 

491 j 

492 $1 "SERVERS " { if ($2 == " " ) server=l ) 
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493 $1 "SERVICES " { if ($2 « server=0) 

494 END {if {sub<"~exit ",*'", line)) exit line; exit -1 ' } ' 

495 exit $? 
4 96 

497 svrld) 

4 98 appname=$l 

4 9*9" set_environ 

500 get_tuxconf ig | \ 

501 sed -e "s/ = / /g" -e 's/"//g* -e 's/W//' -e "s/W/" I awk ' 

502 BEGIN { server=0 ; nb_of _distinct_svr_ld=0 } 

503 {line = $0} 

504 $2 == "SRVGRP" && $4 « "SRVID" && server == 1 { 

505 trouve = 0 

506 if (nb_of_distinct_svr_Id ==0) { 

507 nb_of_distinct_svr_Id=l 

508 svrjds [nb_of _dis tinct_svr_Id] = $5 

509 print $5 

510 } else { 

511 for {j=l; j<= nb_of_distinct_svr_Id; j++) { 

512 if ( $5 svr_Ids[j] ) { 

513 trouve=l 

514 ) 

515 ) 

516 if (trouve ==0) { 

JJ.7 nb_of_distinct_svr_Id += l 

^48 svr_Ids [nb_of_distinct_ svr_Id] - $5 

?&9 print $5 

£20 } 

Si } 

m2 } 

$1 « " SERVERS " { if ($2 == ) server-1 } 
§524 $1 «.= "SERVICES" { if ($2 == " " ) server=0} 

1455 END {if (sub< M *exit line)) exit line; exit -1 )' 

^26 exit $? 

©7 ;; 
_5 2 8 di s cove r_conf ) 

%29 machine=$2 
E ;§;30 appname=$l 
|£31 set_environ 
|5p2 get_tuxconf ig | \ 

5? 3 sed -e "s/=/ /g" -e 's/"//g' -e 's/WW/O/' -e "s/W/" | awk 

L ^ 4 BEGIN {field = "#" ) 

%P5 {line = $0) 

6 $1 == "UID" { 

^37 field = field separator $1 

538 value = value separator $2 

539 separator = " : " 

540 } 

541 $i == "GID" { 

542 field = field separator 51 

543 value = value separator $2 

544 separator = " : " 

545 } 
546 

5^7 $1 ^= "BRIDGE" && network == 1 && mach_found == 1 { 

field = field separator $1 
value = value separator $2 



548 
549 
550 

551 $1 == "NLSADDR" && network == 1 & & ma ch_ found == 1 { 

552 field = field separator $1 

553 value = value separator $2 

554 network = 0 



555 
556 



mach_found = 0 

) 



^57 - $1 == "TLLOG" && $2 == machine { 

c ° field = field separator $1 

value = value separator $3 

} 



558 
559 
560 
561 
5 62 
563 



$1 « machine { mach_f ound = 1) 
$1 == "NETWORK" { network = 1) 
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5 64 END { 

565 print field; print value 

566 if (sub ("-exit " , " " , line)) exit line; exit -1 " 
5 67 } ' "machine-$machine" 

568 exit $? 
5 69 

570' chglisten) 

571 appname=$l 

572 machine=$2 

573 shift 2 

574 ■ if [ $# -gt 0 ] 

575 then 

576 echo "TLLOG Smachine $1" > $Conf Dir/tlistenlog . $appname . $machine 

577 fi 

578 exit $? 
579 

5 80 chkl is t script) 

581 appname=$l 

582 machine=$2 

5 83 set_environ 

584 get_tuxval > " appname . tux " 

585 get_tllog 

586 . . /appname . tux 
5 87 prog==" 

§-88 if [ -f $appdir/tlisten. $appname . $machine ] 

P9 then 

§f° cat $appdir /tlist en. $ appname. $machine 

£91 echo VWnexit 0\" 

ff2 else 

^3 echo VWnexit IV 

E? 4 fi" 

i?5 if [ - 2 "$uname" ] 

Sf 6 then 

'^P 1 print "Host ^machine not found" 

El 8 exit 1 

599 fi 

nn -f tlscript .$ appname . ^machine 

rsh M $uname" -1 " $ ADMIN" "$prog" | tee tlscript .$ appname . $ma chine > / 

dev/null 

fj$ 2 i $? -ne 0 ] && exit 1 

S 3 -[ -s tlscript. $ appname. $machine ] && cat tlscript .$ appname . $machine ! 



4 



614 
615 
616 
617 
618 



628 
62 9 
630 
631 



awk 



END { if ( $2 == "1" ) exit -1} 



Sf 5 [ $? -eq -1 ] && exit 1 



E -s tlscript. $appname. $machine ] && cat tlscript . $appname . $machine 



607 aw k • 

608 $1 ~ "tlisten" { 

609 mismatch = 0 

f exec=sprintf ( "%s /bin/ tlisten" , tuxdir ) 
611 if ($1 != fexec) { 

print "tlisten command full pathnames mismatch" 
printf "\tscript: \t%s\n" / $1 
printf "\tconf ig: \t%s\n" , fexec 
mismatch +=1 
} 

for (i=2; i <= NF; i++) { 



if ( ( $i == "-d") && ($(i+l) != bridge)) { 



print "BRIDGE values mismatch 



printf "\tscript : \t%s\n", $ (i + l) 
/l 1 printf Wtconfig: \t%s\n", bridge 

/A mismatch +=1 

&2 3 

624 
625 

printf "\tscript: \t%s\n", $ (i + l) 
printf "\tconfig:\t%s\n", nlsaddr 
mismatch +=1 
) 

if (( $i « "-u") && (${i+ij »= uid) ) { 
print "UID values mismatch" 



} 

if {{ $i == && ($(i + l) !=nlsaddr)) { 

print "NLSADDR values mismatch" 
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^boixc(«. =r Loop ^ 



632 printf " \tscript : \t%s\n" , $(i+l) 

633 printf " \tconf ig : \t%s\n" , uid 

634 mismatch +=1 

635 } 

636 if ( ( $i == "-L") && ($(i+l) !=tllog)) { 

637 print "LOGFILE values mismatch" 
638' printf " \tscript : \t%s\n" , $(i + l) 

639 printf " \tconf ig: \t%s\n" , tllog 

640 mismatch +=1 

641 } 

642 }} 

643 END { 

644 if ( mismatch == 0 ) 

645 printf "Script File is up-to-date for % s\n" , machine 

646 else 

647 printf "\nScript File is NOT up-to-date for %s\n" , machine 

648 } ' tllog=$tllog machine=$machine bridge=$bridge \ 

649 nlsaddr=$nlsaddr uid-$uid tuxdir-$ tuxdir 

650 exit 5? 
651 

652 startlistproc) 

65 3 appname=$l; shift 

654 list="$*" 

655 set_environ 

656 boucle status=0 
£§7 exit_status=0 
&§.8 for machine in $list 

eis do 

Vio echo "\n Machine: $machine \n" 

61 1 get^tuxval > "appname . tux" 

Sf 2 get_tllog 

K§3 . . /appname . tux 

K|4 progl=" 

fe65 TUXDIR=$tuxdir; export TUXDIR 

H6 ROOTDIR=$ tuxdir; export ROOTDIR # V4 

§o7 APPDIR=$appdir; export APPDIR 

|f 8 TUXCONFIG=$tuxconf ig; export TUXCONFIG 

PATH=$ {PATH} : \$TUXDIR/bin: \$APPDIR; export PATH 

§30 LANG=$lang; export LANG 

P/U LIBPATH=$ {LIBPATH} : $ tuxdir /lib; export LIBPATH 

gf2 COLUMNS=200; export COLUMNS 

^3 ps -eF ' %u %p %a' i awk ■ \$3 ~ \"tlisten\" && \$0 ~ \" $nlsaddr \" { 
yp exit 1} ' 

if [ \$? « i ) 

^?5 then 

€76 echo \"Listener already running on $machine\" 

e * 7 * 7 echo exit 0 

678 exit 0 

79 fi 

660 if [ -f $appdir/tlisten . $appname . $machine ] 

681 then 

662 . $appdir/tlisten. $appname . $machine 

683 ps -eF '%u %p %a' I awk ' \$3 - \"tlisten\" && \$0 ~ \"$nls 
addr\ M {exit 1} ' 

if [ \$? = 1 ] 

e8 5 then 

666 echo V'Listener started on $machine\" 

6S" 7 echo exit 0 

£88 else 

689 echo V'Listener starting failed on ^machine !!!\" 

690 echo exit 1 

691 fi 

692 else # create the script file & exec it 

e93 echo \"$tuxdir/bin/tlisten -d Sbridge -1 $nlsaddr -u $uid -L 

StilogV > $appdir/tlisten. Sappname . $machine 

w9 j chmod ug+x $appdir/tlisten . $appname . ^machine 

. $appdir/tlisten. $appname . ^machine 

696 ps -eF '%u %p %a' I awk ' \$3 ~ VtlistenV && \$0 ~ V'Snlsadd 
r\" {exit 1} * 

if [ \$? - 1 ] 
then 



697 
69e 



40 



699 echo \"Listener started on $machine\" 

700 echo exit 0 

701 else 

702 echo V'Listener starting failed on Smachine !!!\ M 

703 echo exit 1 

704 f i 
70S- fi" 

706 #echo "Sprogl" > progl 

707 if [ -2 "$uname" ] 
70 8 then 

709 print "Host ^machine not found" 

710 exit 1 

711 fi 

712 rsh "$uname" -1 n $ ADMIN" "$progl" | awk 1 

713 NR == 1 {line = $0) 

714 NR > 1 { print line; line = $0 } 

715 END {if (sub (" A exit " , " ", line)) exit line; print line; exit -1)' 

716 boucle _status~ * expr $ boucle status \| $? * 

717 cTone 

718 exit Sboucle status 

719 ;; * 1 

720 stoplistproc) 

721 appname=$l; shift 

722 list="$*" 

723 set^environ 

g"2 4 boucle status-Q 

%2b exit_status— 0 

Ti6 for machine in $list 

Ml do 

CI? 8 echo "\n Machine: ^machine \n" 

Pi 9 get_tuxval > "appname . tux" 

5?0 . . /appname . tux 

*Mi progl=" 

g32 COLUMNS=2 00; export COLUMNS 

h5? 3 P s " eF ,%u % P %a' I awk * \$3 - \"tlisten\" && \$0 - \"$nlsaddr\" {print \$ 

*~ 2; exit 0 }' I read pid 

?34 if [ -n \"\$pid\" ] 

335 then 

f¥? 6 kill -9 \$pid > /dev/null 

717 status=\$? 

^3 8 if [ \$status -eq 0 ] 

S? 9 * then 

iT|° echo \"Process \$pid killed on $machine\" 

'Ell echo exit 0 

^42 else 

743 echo \"Failed to stop listener on $ma chine !!! \ " 

744 echo exit 1 

745 fi 

746 else 

747 echo V'No Listener running on $machine\" 

748 echo exit 1 
74 9 fi" 

750 if [ -z "$uname" ] 

751 then 

752 print "Host ^machine not found" 

753 exit 1 

754 fi 

755 rsh "$uname" -.1 "$ADMIN" "$progl" | awk 1 

756 NR =« 1 {line - $0} 

757 NR > 1 { print line; line = $0 } 

'I 58 END {if (sub ("-exit '*,"", line)) exit line; print line; exit -1}' 

759 boucle status^ 1 expr $boucle_status \| $? * 

76 0 " done ' • 

761 exit $boucle status 

762 ;; " 

763 

7 64 runninglist) 

7e5 appname=$l 

766 boucle status=0 

7 ^ 7 set^environ 

768 list_lmids=* get_tuxconf ig ! \ 



769 sed -e "s/ = / /g" -e 's/V/g' -e 's/WW/O/' -e "s/W/" I awk • 

770 BEGIN { networks } 

771 {line = $0} 

772 NF == 1 { if (network == 1) print $1} 

773 SI ™ "NETWORK" { network =1} 

774 END {if (sub ('""exit ","", line)) exit line; exit -1 } 1 * 
775' for machine in $list_lmids 

776 do 

777 get_tuxval > "appname. tux" 

775 . . /appname . tux 

779 progl=" 

780 TUXDIR=$tuxdir ; export TUXDIR 

7SI LIBPATH=$ {LIBPATH} : $tuxdir/lib; export LIBPATH 

762 ROOTDIR=$tuxdir; export ROOTDIR # V4 

783 APPDIR=$appdir; export APPDIR 

7S4 TUXCONFIG=$tuxconf ig; export TUXCONFIG 

785 PATK=$ {PATH} : \ $TUXDIR/bin : \$APPDIR; export PATH 

78 6 LANG=$ lang; export LANG 

787 COLUMNS=200; export COLUMNS 

"86 ps -eF ' %u %p %a* I awk ' \$3 - \"tlisten\ M && \$0 ~ \ " $nlsaddr\ " {print 

\$2) ' I read pid 

769 if [ -n \"\$pid\" ] 

790 then 

791 echo \ "Listener running on $machine: pid = \$pid\" 
192 echo exit 0 

IE? 3 else 

ffH echo \"No Listener running on $machine\" 

=T£S echo exit 0 
fi" 

a© 7 if [ -z "$uname" ] 

©8 then 

=399 print "Host $machine not found" 

-@C exit 1 

-SOI fi 

W 2 rsh "$uname" -1 "$ADMIN" "$progl" | awk ' 

= 803 NR « 1 {line = $0} 

££f NR > 1 { print line; line = $0) 

^ 5 END { if (sub("^exit ", "", line)) exit line; print line; exit -1) ' 

fSP 6 boucl e status^'expr $ boucle status \| $? s 

|? 07 done * ' 

E>8 exit $boucle status 

^-.09 ;; *~ 

@C updtlistscript ) 

iff-l appname=$l 
machine=$2 

613 set_environ 

814 get_tllog 

8 IS get_tuxval > "appname . tux" 

816 . . /appname . tux 

61 / prog=" 

815 echo \"$tuxdir/bin/tlisten -d Abridge -1 $nlsaddr -u $uid -L $tllog\" > $app 
cir /tlisten . $appname . ^machine 

chmod ug+x Sappdir/tlisten. Sappname . $machine 

820 echo exit \$?" 

821 if [ -z "Suname" ] 
622 then 

e f 3 print "Host $machine not found" 

624 exit 1 

825 fi 

e2£ * rsh "Suname" -1 "$ADMIN" "$prog" I awk ' 
NR == 1 {line = $0) 
NR > 1 { print line; line = $0 ) 

END {if (sub<"~exit ","", line)) exit line; print line; exit -1)' 
exit $? 



82 / 
5 2 5 
629 
630 



6f2 tuxBootSnt) 

appname =$ 1 ; shift 

cmd="\$TUXDIR/bin/tmboot -y $@" 
set_environ 
remote_cmd 
exit $? 



c - - 

6 * - 
623 
826 
627 



905 
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838 

839 tuxShutEnt) 

840 appname=$l; shift 

841 cmd= M \$TUXDIR/bin/tmshutdown -y" 

842 set_environ 

843 r emot e_cmd 
8 4"4" exit $? 
845 

84 6 tuxBootAllMach) 

847 appname=$l; shift 

848 cmd= r, \$TUXDIR/bin/tmboot -y -A $@" 

84 9 set_environ 

850 remote_cmd 

851 exit $? 
852 

85 3 tuxShutAllMach) 

85 4 appname=$l; shift 

855 cmd= M \$TUXDIR/bin/tmshutdown -y -A $@" 

85 6 set_environ 

8 57 reraote_cmd 

858 exit S? 
85 9 

8 60 tuxShut) 

8 61 appname=$l; shift 

862 cmd="\$TUXDIR/bin/tmshutdown -y $@" 

gJ3 set_environ 

JH?4 remote__cmd 

jHs exit $? 

¥46 

S|7 tuxShutAdmMast ) 

&§B appname=$l; shift 

S|9 cmd="\$TUXDIR/bin/tmshutdown -y -M $@" 

|&?0 set__environ 

WH 0 r emo t e_cmd 

£f2 exit $? 

J73 

%74 tuxShutSvrSect ) 

IP 5 appname=$l; shift 

Sf6 cmd="\$TUXDIR/bin/tmshutdown -y -S $@" 

£77 set_environ 

?f7 8 remote_cmd 

U9 exit $? 

4f° 

.Si tuxBootAdmMast ) 

^2 appname-$l ; shift 

883 cmd="\$TUXDIR/bin/tmboot -y — M $@" 

8 84 set_environ 

8 85 remote_cmd 

886 exit $? 
887 

888 tuxBoot) 

88 9 appname=$l; shift 

890 cmd="\$TUXDIR/bin/tmboot -y $@" 

8 91 set__environ 

8 92 remote cmd 

893 exit $? 
8 94 

895 tuxShutdown) 

896 appname=$2 

897 cmd="\$TUXDIR/bin/tmshutdown -y $1" 

898 set^environ 
8 99 remote cmd 
9 °0 exit $? 

901 
902 
903 



tuxBootSvrSct } 

appname=$l; shift 



904 cmd= M \$TUXDIR/bin/tmboot -y -S $@* 



set environ 



906 remote cmd 



907 
908 



exit $? 




909 tuxBootBBL) 

910 #echo $* 

911 appname=$l; shift 

912 cmd="\$TUXDIR/bin/tmboot -y $@" 

913 set__environ 

914 . remote^cmd 
91*5- exit $? 
916 

917 tuxShowBooted) 

918 appname=$l; shift 

919 cmd=" (echo psr; echo quit ) I \$TUXDIR/bin/tmadmin" 
92 0 set_environ 

921 remote_cmd 

922 exit $? 
923 

92 4 tuxminlPC) 

92 5 appname=$l; shift 

926 cmd="\$TUXDIR/bin/tmboot -y -c $@" 

92" set_environ 

92 8 remote_cmd 

929 exit $? 

930 

931 tuxShutPart) 

932 exit_status=0 

933 appname =$1, - 

fg34 machine=$2 ; shift 

,9,35 set_environ 

l¥36 get_tuxconf ig I \ 

^3"? sed -e "s/=/ /g" -e 's/'V/g' -e *s/\\//' - e "s/W/" I awk ' 

Q§38 $1 == "APPDIR" && mach_section == 1 && mach_f ound — 1 

S39 print "APPDIR " $2 > "appname. tux" 

3^4 0 mach_s ect ion = 0 

^1 mach_found = 0 

Ufa 2 } 

f^3 $1 == "TUXCONFIG" && mach__section==l && mach_f ound=*=l { 

^44 print "TUXCONFIG " $2 > " appname . tux" 

? 45 ) 

fSM $1 == "MACHINES " {mach_section = 1} 

^f 1 $2 == " LMI D " Set mach_section == 1 && $3 == machine { 

J?? 8 print "MACHINE " $1 > "aopname . tux" 

^ 9 mac h found = 1 

^5 0 } 

b^f 1 $1 — "TUXDIR" && mach_section==l && mach_f ound==l { 

.f 2 print "TUXDIR " $2 > " appname . tux" 

% £53 } 

95 4 ' "machine=$ma chine" "appname=$ appname" 

555 if [ $? != 0 ] 

95 6 then 

957 exit 1 

958 fi 

559 appdir-'awk '$1 ™ "APPDIR" {print $2}' appname. tux' 

960 tuxconf ig=* awk ( $1 == "TUXCONFIG" {print $2}' appname . tux * 

961 uname='awk '$1 == "MACHINE" {print $2}' appname. tux' 
H 2 rootdir^awk '$1 == "TUXDIR" {print $2}' appname. tux 4 

563 lang=*sed -e ' s/=/ /g* -e 's/;/ /g' $Conf Dir /$appname . tux I 

y6 f- awk '$1 == "LANG" {print $2}'" 

565 progl="TUXDIR=$rootdir; export TUXDIR 

see APPDIR=$appdir ; export APPDIR 

967 LIBPATH=$ {LIBPATH} : $rootdir/lib ; export LIBPATH 

" ee TUXCONFIG=$tuxconf ig; export TUXCONFIG 

969 LANG=$lang; export LANG 

970 PATH=$ { PATH } : \$TUXDIR/bin : \$APPDIR; export PATH 
- 71 $TUXDIR/bin/tmshutdown -y -P $@ 

" 7 - echo \$? > /tmp/rem$ appname . $machine . tux" 

-~ 3 if [ -2 "Suname" ] 

974 then 

975 print "Host Smachine not found" 
S7e exit 1 

977 fi 

978 rsh $uname -1 "$ADMIN" "$progl" 



979 



rsh status=*echo $?' 
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980 if [ "$rsh_status" -eq "0" ] 

981 then 

982 status='rsh Suname -1 " $ADMIN" "cat /tmp/rem$appname . $machine . tux" ' 

983 rsh $ MASTER -1 " $ ADMIN" "rm /tmp/rem$appname . $machine . tux" 2> /dev/nul 

984 rsh $uname -1 "$ADMIN" "rm /tmp/rem$appname . $machine . tux" 2> /dev/nul 
- 1 

985 f i 

986 if [ "Sstatus" -ne "0" 3 

987 then 

988 exit_status="expr $exit_status +1' 

989 f i 

990 if [ "$exit_status" -ne "0" -o ,, $rsh_status" -ne "0" ] 

991 then 

992 exit 1 

993 fi 
994 

995 loadfshm) 

99 6 appname=$l ; machine=$2; shift 2 

997 s e t_en vi r on 

998 get_tuxval > "appname . tux" 

999 . . /appname . tux 

1000 prog=" 

1001 TUXDIR=$tuxdir; export TUXDIR 

1002 ROOTDIR=$tuxdir ; export ROOTDIR 

gf03 LIBPATH=$ {LIBPATH} : $ tuxdir/lib; export LIBPATH 

ID 04 LAN G= Slang; export LANG 

Wo5 $tuxdir/bin/loadf iles $@ 

W)06 echo \"\nexit \$?\"" 

§J07 if [ -z ^uname" ] 

=£008 then 

J?09 print "Host $machine not found" 

!&£il0 exit 1 

gffll fi 

"if) 12 rsh "$uname" -1 " $ ADMIN" "$prog" | awk ' 

^013 NR == 1 {line = $0} 

4014 NR > 1 { print line; line = $0 } 

||15 END {if (subC'-exit " " , line)) exit line; print line; exit -1)' 

=10 16 ; ; 

Sfl7 Unloadcf) 

appname=$l 
gfl9 set_environ 

T&2 0 cmd="\$TUXDIR/bin/tmunloadcf " 

1?21 if [ $# -eq 2 ] 

©22 then 

1023 filename=$2 

102 4 remote_cmd > " $f ilename" 

1025 else 

102 6 remote cmd 

1027 fi 

1028 exit $? 
1029 

1030 *) 

1031 echo "Command $1 does not exist" 

1032 exit 1 
1033 



